0dima(9):fori=0to9:reada(i):next:fory=0to18:?:k=y:ifk>9thenk=18-y
1m=a(k):p=512:fori=9to1step-1:ifint(m/p)-2*int(m/(2*p))then?tab(20-i);"*";
2p=p/2:next:ifm-2*int(m/2)then?tab(20);"*";
3n=int(m/2):fori=1to9:t=n:n=int(n/2):ift<>n*2then?tab(20+i);"*";
4next:next:data1,5,163,97,229,19,9,293,147,1023